home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / NAMTAB.f < prev    next >
Text File  |  1992-07-31  |  1KB  |  40 lines
  1.       SUBROUTINE NAMTAB(SNAME,SLIST,NLIST,IPOS) 
  2. *-----------------------------------------------------------------------
  3. *   
  4. *   enters a name in an alphabetic table, or gives position if already in.  
  5. *   
  6. *   input   
  7. *   SNAME                   name to be entered  
  8. *   SLIST                   name list   
  9. *   NUMTAB                  reference list to be updated (integers) 
  10. *   NLIST                   no. of names in SLIST   
  11. *   Output  
  12. *   IPOS                    <0: -pos of name already in table   
  13. *                           =0: NLIST <0
  14. *                           >0: pos of newly entered name in table  
  15. *   
  16. *+++++++++++ IMPORTANT  
  17. *   In case the name has been entered, the user must increase the list  
  18. *   length himself. 
  19. *-----------------------------------------------------------------------
  20.       CHARACTER *(*) SNAME,SLIST(*) 
  21.       IF(NLIST.LT.0)  THEN  
  22.          IPOS=0 
  23.       ELSEIF(NLIST.EQ.0)  THEN  
  24.          IPOS=1 
  25.          SLIST(1)=SNAME 
  26.       ELSE  
  27.          CALL NAMSRC(SNAME,SLIST,NLIST,KPOS,LAST)   
  28.          IF (KPOS.EQ.0)  THEN   
  29. *--- name not yet in table  
  30.             IPOS=LAST+1 
  31.             DO 10 I=NLIST,IPOS,-1   
  32.                SLIST(I+1)=SLIST(I)  
  33.    10       CONTINUE
  34.             SLIST(IPOS)=SNAME   
  35.          ELSE   
  36.             IPOS=-KPOS  
  37.          ENDIF  
  38.       ENDIF 
  39.       END   
  40.